home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / VTP031.ZIP;1 / TEST.ZIP / TINLINEU.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-12-07  |  284 b   |  33 lines
  1. program tinlineu;
  2.  
  3.  
  4. uses
  5.  
  6.   vinlineu;
  7.  
  8.  
  9. var
  10.  
  11.   s1,s2 : string;
  12.   Ch    : Char;
  13.  
  14. begin
  15.  
  16.   S1 := 'Hey!';
  17.  
  18.   StrAddCh( S1, '?' );
  19.  
  20.   WriteLn( S1 );
  21.  
  22.   CH := '-';
  23.   S1 := S1 + CH;
  24.  
  25.  
  26.   S2 := ' What is this?';
  27.  
  28.   StrAddStr( S1, S2 );
  29.  
  30.   WriteLn( S1 );
  31.  
  32.  
  33. end.